﻿Imports Fgv.Framework.UI
Imports LS.Leilao.Dominio

Partial Class UserControls_AlbumImagensPeca
    Inherits BaseUserControl

#Region "Atributos da pagina"

    Public Property Imagens() As List(Of ImagemPeca)
        Get
            Return TryCast(ViewState("_img"), List(Of ImagemPeca))
        End Get
        Set(ByVal value As List(Of ImagemPeca))
            ViewState("_img") = value
            Me.DataBindRpt()
        End Set
    End Property

#End Region

#Region "Delegates"

    Protected Delegate Sub PageDelegate()

#End Region

#Region "Classes Injetadas"

#End Region

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then

        End If

    End Sub

#Region "Funcoes de Databind"

    Protected Sub DataBindRpt()

        Dim _imagemPecas As IList(Of ImagemPeca)

        _imagemPecas = Me.getImagens()

        rpt.DataSource = _imagemPecas
        rpt.DataBind()

    End Sub

    Protected Sub rpt_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rpt.ItemDataBound

        If e.Item.ItemType = ListItemType.Item Then
            Dim _dataItem As ImagemPeca = CType(e.Item.DataItem, ImagemPeca)
            Dim _i As HtmlImage = CType(e.Item.FindControl("i"), HtmlImage)

            _i.Alt = _dataItem.Descricao

        End If

    End Sub

#End Region

#Region "Operacoes do Usuario"

#End Region

#Region "Classes Auxiliares"

#End Region

    Protected Function getImagens() As IList(Of ImagemPeca)

        Dim _usuario01, _usuario02, _usuario03, _usuario04, _usuario05 As Usuario
        Dim _pessoa01, _pessoa02, _pessoa03, _pessoa04, _pessoa05 As Pessoa
        Dim _peca01, _peca02, _peca03, _peca04, _peca05, _peca06, _peca07, _peca08 As Peca
        Dim _imagem01, _imagem02 As ImagemPeca
        Dim _contato01, _contato02, _contato03 As Contato

        _pessoa01 = New Pessoa With {.Nome = "Leonardo Santana", .Cidade = "Rio de Janeiro", .Uf = "RJ", .DocumentoIdentificacao = "123", .Email = "email@gmail.com"}
        _pessoa02 = New Pessoa With {.Nome = "Ana Tereza", .Cidade = "Rio de Janeiro", .Uf = "RJ", .DocumentoIdentificacao = "245", .Email = "ana@gmail.com"}
        _pessoa03 = New Pessoa With {.Nome = "Marco", .Cidade = "Rio de Janeiro", .Uf = "RJ", .DocumentoIdentificacao = "678", .Email = "marco@gmail.com"}
        _pessoa04 = New Pessoa With {.Nome = "Antonio", .Cidade = "Rio de Janeiro", .Uf = "RJ", .DocumentoIdentificacao = "908", .Email = "antonio@gmail.com"}
        _pessoa05 = New Pessoa With {.Nome = "Carlos", .Cidade = "São Paulo", .Uf = "SP", .DocumentoIdentificacao = "459", .Email = "carlos@gmail.com"}


        _usuario01 = New Usuario With {.Login = "LSANTANA", .Pessoa = _pessoa01, .Habilitado = False}

        _contato01 = New Telefone With {.DDD = "21", .Numero = "2538-9967", .Pessoa = _pessoa01, .Usuario = _usuario01}
        _contato02 = New Telefone With {.DDD = "21", .Numero = "6789-9908", .Pessoa = _pessoa02, .Usuario = _usuario01}
        _contato03 = New Email With {.Endereco = "teste@test.com", .Pessoa = _pessoa01, .Usuario = _usuario01}

        _usuario02 = New Usuario With {.Login = "ANA", .Pessoa = _pessoa02, .Habilitado = True}
        _usuario03 = New Usuario With {.Login = "MARCO", .Pessoa = _pessoa03, .Habilitado = True}
        _usuario04 = New Usuario With {.Login = "ANTONIO", .Pessoa = _pessoa04, .Habilitado = True}
        _usuario05 = New Usuario With {.Login = "CARLOS", .Pessoa = _pessoa05, .Habilitado = True}

        _peca01 = New Peca With {.Descricao = "castiçal de ouro", .Proprietario = _usuario01}
        _peca02 = New Peca With {.Descricao = "Moeda 1800", .Proprietario = _usuario01}
        _peca03 = New Peca With {.Descricao = "Selo Chinês", .Proprietario = _usuario02}
        _peca04 = New Peca With {.Descricao = "Moeda 1500", .Proprietario = _usuario02}
        _peca05 = New Peca With {.Descricao = "Candelabro folheado", .Proprietario = _usuario02}
        _peca06 = New Peca With {.Descricao = "Livro 1600", .Proprietario = _usuario02}
        _peca07 = New Peca With {.Descricao = "Moeda prata", .Proprietario = _usuario02}
        _peca08 = New Peca With {.Descricao = "500 fotografias Rio antigo", .Proprietario = _usuario02}

        _imagem01 = New ImagemPeca With {.Extensao = "jpg", .Peca = _peca01, .Tamanho = 100, .Descricao = "Peça de teste"}
        _imagem02 = New ImagemPeca With {.Extensao = "jpg", .Peca = _peca01, .Tamanho = 3500, .Descricao = "Peça de teste 02"}

        Dim _pecas As IList(Of ImagemPeca)
        _pecas = New List(Of ImagemPeca)
        _pecas.Add(_imagem01)
        _pecas.Add(_imagem02)
        _pecas.Add(New ImagemPeca With {.Extensao = "jpg", .Peca = _peca01, .Tamanho = 3500, .Descricao = "Outra peça"})
        _pecas.Add(New ImagemPeca With {.Extensao = "jpg", .Peca = _peca01, .Tamanho = 3500, .Descricao = "Nova Peça"})
        _pecas.Add(New ImagemPeca With {.Extensao = "jpg", .Peca = _peca01, .Tamanho = 3500, .Descricao = "MOEDA"})

        Return _pecas

    End Function



End Class
